Attribute VB_Name = "modDatabase"
Option Explicit

Function FolderExists(InPath As String) As Boolean
    If LenB(Dir$(InPath, vbDirectory)) = 0 Then
        FolderExists = False
    Else
        FolderExists = True
    End If
End Function
 
Public Sub MkFolder(ByVal InPath As String) 'In app.path\
    On Error GoTo erro
    MkDir (App.Path & "\" & InPath)
erro:
    Exit Sub
End Sub
